home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc v 87.d64 / term 1660.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  320 lines
  1. 0 IFPEEK(22784)<>76THENLOAD"DISKTERM2",8,1
  2. 10 IFPEEK(49152)<>169THENLOAD"DISKTERM1",8,1
  3. 15 POKE650,128
  4. 20 POKE646,0:POKE251,0:POKE252,99
  5. 30 N%=0:NX%=12
  6. 40 POKE51224,255
  7. 50 POKE24816,6:POKE24817,0:REM 300BAUD 8BIT NO PARITY
  8. 60 POKE53280,11:POKE646,14:POKE53281,0
  9. 70 GOSUB7000
  10. 80 N%=N%+1
  11. 90 REM IFN%=1ANDNX%=12THENSYS24832
  12. 100 R%=5:MO%=6:SE$="":ML=22784
  13. 110 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(24816))+CHR$(PEEK(24817))
  14. 120 RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF"
  15. 130 RP=2:RS=0:WP=RP:WS=RS
  16. 140 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96
  17. 150 PA(0)=10:PA(1)=6:PA(2)=2
  18. 160 ML=22784:PRINTCHR$(14):POKE24569,0
  19. 170 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1
  20. 180 DN$="":GOTO200
  21. 190 PRINT:PRINT"[212]ERMINAL [205]ODE":GET#5,A$,A$:SYSML+0:CLOSE11:POKE24569,0:TM=0
  22. 200 POKE53280,11:POKE53281,0:BS=PEEK(51224)
  23. 201 PRINT"[147][158][198]UNCTION:       [152][194]LOCK [211]IZE =[154]"BS:PRINT"[158][163][163][163][163][163][163][163][163]"
  24. 210 PRINT"[153]1 - [152][212]ERMINAL [205]ODE":PRINT"[153]2 - [154][207]LD [208]ROTOCALL/[211]END [208][210][199]"
  25. 220 PRINT"[153]3 - [154][207]LD [208]ROTOCALL/[210]ECEIVE [208][210][199]"
  26. 230 PRINT"[153]4 - [129][196]ISK [195]OMMANDS":PRINT"[153]5 - [150][193]NSWER [208]HONE":PRINT"[153]6 - [150][200]ANG [213]P!"
  27. 240 TY$="PSP"
  28. 250 PRINT"[153]7 - [158][193]UTODIAL/[193]UTOANSWER"
  29. 260 PRINT"[153]8 - [154][206]EW [208]ROTOCALL/[211]END [208][210][199]":PRINT"[153]9 - [154][206]EW [208]ROTOCALL/[210]ECEIVE [208][210][199]"
  30. 270 PRINT"[153]0 - [195]HANGE [194]LOCK [211]IZE"
  31. 280 PRINT"[153][209] - [209]UIT[151]"
  32. 290 GETA$:IFA$=""THEN290
  33. 300 IFA$="Q"ORA$="[209]"THEN880
  34. 310 ONVAL(A$)GOTO190,670,330,2340,20000,20000,1160,3160,3200:IFA$="0"THEN3250
  35. 320 GOTO290
  36. 330 REM RECEIVE A PROGRAM
  37. 340 PRINT"[206]AME OF [198]ILE?"
  38. 350 PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB920:S$=B$
  39. 360 IFS$=""THENPRINT#5,"A";:GOTO190
  40. 370 IFMID$(S$,2,1)<>":"THENS$="0:"+S$
  41. 380 GOSUB580:S$="@"+S$+T$+",W"
  42. 390 CLOSE2:OPEN2,8,2,S$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO340
  43. 400 PRINT#5,"TTTTTTTTTT";
  44. 410 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN410
  45. 420 SYSML+18:IFSTTHEN470
  46. 430 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN430
  47. 440 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
  48. 450 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN480
  49. 460 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO410
  50. 470 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO190
  51. 480 PRINT#5,"";:PRINT":";:GOTO410
  52. 490 PRINT"[212]YPE OF [198]ILE:"
  53. 500 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">";
  54. 510 GETB$:IFB$=""THEN510
  55. 520 TY$=B$:FL=0
  56. 530 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN
  57. 540 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN
  58. 550 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN
  59. 560 IFB$=CHR$(13)THENFL=1:RETURN
  60. 570 GOTO510
  61. 580 PRINT#5,"UUUUUUUUUU";
  62. 590 GET#5,A$:IFST<>0THEN590
  63. 600 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO640
  64. 610 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO640
  65. 620 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO640
  66. 630 GOTO590
  67. 640 PRINT"[198]ILE [212]YPE: "A$""
  68. 650 GET#5,A$:IFST=0THEN650
  69. 660 RETURN
  70. 670 REM SEND AN SEQ FILE TO BULLETIN BOARD
  71. 680 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB920:S$=B$
  72. 690 IFS$=""THENPRINT#5,"A";:GOTO190
  73. 700 GOSUB490:IFFLTHENS$="":GOTO690
  74. 710 CLOSE2:OPEN2,8,2,S$+T$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO680
  75. 720 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  76. 730 GET#5,A$:IFST<>0ORA$<>"U"THEN730
  77. 740 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN740
  78. 750 SYSML+9:CK=ST
  79. 760 FORX=1TO400:NEXT
  80. 770 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN770
  81. 780 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
  82. 790 PRINT#5,"ZZZZZZZZZZZZZZZ";
  83. 800 IFPEEK(669)<>PEEK(670)THEN800
  84. 810 GET#5,A$:IFST<>0THEN810
  85. 820 IFA$=""THENPRINT":";:GOTO760
  86. 830 IFA$<>""THEN810
  87. 840 IFCK=0THENPRINT"-";:GOTO740
  88. 850 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN850
  89. 860 CLOSE2:GOTO190
  90. 870 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  91. 880 REM QUIT TERMINAL
  92. 890 CLOSE5:CLOSE1:CLOSE2:CLOSE11
  93. 900 PRINTCHR$(9)
  94. 910 END
  95. 920 PRINT" [146][157]";:B$=""
  96. 930 GETA$:IFA$=""THEN930
  97. 940 IFA$=CHR$(20)THEN970
  98. 950 IFA$=CHR$(13)THENPRINT" ":RETURN
  99. 960 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO930
  100. 970 IFLEN(B$)=0THEN930
  101. 980 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO930
  102. 990 REM GET ERROR CHANNEL
  103. 1000 INPUT#1,E1$,E2$,E3$,E4$
  104. 1010 ES$=E1$+","+E2$+","+E3$+","+E4$
  105. 1020 ES=VAL(E1$):RETURN
  106. 1030 POKE22784,0:RUN
  107. 1160 B1=56577:B2=56579
  108. 1170 PRINT"[147][193]UTODIAL [211]ECTION "
  109. 1180 PRINT"[211]ELECT [207]NE:
  110. 1190 [153]"[ATN]NSWER AN RIGHT$(null)LEN(null)(null)RIGHT$(null)CHR$ LENALL"
  111. 1200 [153]"[STR$]IAL OUT"
  112. 1205 [153]"(null)RESS ANY OTHER KEY TO ATNPEEK(null)(null)(null)!"
  113. 1210 [161]A$:[139]A$[178]""[137]1210
  114. 1220 [139]A$[178]"A"[167] [137]1250
  115. 1230 [139]A$[178]"D"[167][137]1310
  116. 1240 [137]200
  117. 1250 [141]1630:[151]B1,127:[153]"MOVE O-A SWITCH TO ANSWER.":[153]:[153]
  118. 1260 [153]"WAITING FOR RING..."
  119. 1270 X[178][194](B1)
  120. 1275 [153]"(null)VALVAL(null)(56577)="[194](56577),"(null)VALVAL(null)(56579)="[194](56579)
  121. 1280 [139]X[179][177]127[167][153]"(null)ING STR$ETECTED!":[151]56579,32:[151]56577,95:[137]2290
  122. 1285 [153]"(null)VALVAL(null)(56577)="[194](56577),"(null)VALVAL(null)(56579)="[194](56579)
  123. 1290 [137]1270
  124. 1300 [128]
  125. 1310 [151]B2,38:[151]B1,45
  126. 1320 [153]"LOADPEEKULLETIN PEEKOARDS AVAILABLEWAIT":[141]1640:[153]"(null)ELECT YOUR CHOICE":[141]1790
  127. 1330 [153]" ":[137]1360
  128. 1340 [153]"ONVALNTER NUMBER TO DIAL  CMDCMD";:[133]D$
  129. 1350 [142]
  130. 1360 [151]56579,38:[151]56577,95:T[178]50
  131. 1370 T[178]T[171]1:[139]T[179][177]0[137]1370
  132. 1380 D[178][195](D$):[129]X[178]1[164]D:N$[178][202](D$,X,1)
  133. 1390 [153]""N$"WAIT";:N[178][197](N$):[139]N[178]0[167]N[178]10
  134. 1400 [139]N$[179]"0"[176]N$[177]"9"[167][130]X:[137]1420
  135. 1410 [141]1450:[130]X
  136. 1420 NT[178]NT[170]1:[129]XB[178]1[164](40[171]D):[153]" ";:[130]XB
  137. 1430 [153]"STR$IALING VALNDED .... (null)UMBER OF TRIES";NT:[137]1540
  138. 1440 [153]"CHR$OING TO (null)ERMINAL (null)ODE":[153]QL$:[137]190
  139. 1450 [129]N1[178]1[164]N
  140. 1460 [151]56577,45
  141. 1470 [129]T[178]1[164]10:[130]T
  142. 1480 [151]56579,38:[151]56577,95
  143. 1490 [129]T[178]1[164]10:[130]T
  144. 1500 [130]N1
  145. 1510 [129]T[178]1[164]200:[130]T
  146. 1520 [142]
  147. 1530 [128]
  148. 1540 [153]"ASC1=(null)EW (null)UMBER"
  149. 1545 [153]"ASC3=(null)EDIAL (null)HIS (null)UMBER"
  150. 1550 [153]"ASC5=(null)ERMINAL (null)ODE"
  151. 1560 CR[178]0:[129]ZZ[178]1700[164]1000[169][171]1:[161]A$:[139]A$[178]"DIM"[167]1610
  152. 1570 [139]A$[178]"INPUT"[137]1310
  153. 1575 [139]A$[178]"READ"[167]190
  154. 1580 [139][194](B1)[178]47[167]CR[178]CR[170]1:[139]CR[177]20[167]2290
  155. 1585 [139][194](B1)[178]46[167]1610
  156. 1590 [139]A$[178]"LET"[167]200
  157. 1600 [130]ZZ
  158. 1610 [151]B1,45:[129]ZZ[178]1[164]2000:[130]
  159. 1620 [153]"ONONONONON           CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON":[137]1360
  160. 1630 [129]ZZ[178]1[164]36:[153]:[130]ZZ:[142]
  161. 1640 [153]"1.PEEKBBBS.STR$WN. 2.PEEKBBBS.STR$WN.  3.PEEKBBBS.MSG "
  162. 1650 [153]"4.PEEKBBBS.MSG. 5.LENOMSPEC     6.(null)ORTEC "
  163. 1660 [153]"7.RIGHT$NFO.SYS.  8.LENAMPUTERS   9.(null)OONRISE"
  164. 1670 [153]"10.PEEKUG PEEKOARD 11.ATNFTER LEFT$RS. 12.(null).(null).RIGHT$."
  165. 1680 [153]"13.(null)IBRARY   14.RIGHT$NTER ASCACE 15.ATNLMOST LEFT$VN";
  166. 1690 [153]"16.RIGHT$NFO-(null)EK  17.ASCLIGHT DEK 18.1ST LENHOICE";
  167. 1700 [153]"19.(null)IDTEK    20.ATNLIEN (null)RLD 21.(null)TUDENTS"
  168. 1710 [153]"22.LEFT$EADBANG. 23.(null)AGIC RIGHT$RIGHT$   24.(null)OLAR PEEK."
  169. 1720 [153]"25.CHR$RAVEYARD 26.(null)ISS (null)ET 2 27.(null)IZ-ATNMP."
  170. 1730 [153]"28.(null)OBOTICS  29.(null)RASH LENAN  30.(null)OFTWORX"
  171. 1740 [153]"31.(null)IM(PEEK(null)(null)(null)) 32.(null)COTT (null)ELL 33.ATNRMAN PEEKPEEK(null)"
  172. 1750 [153]"34. LEN.ASC.(null).(null)  35. (null)WAMP     36.PEEKUY& (null)ELL"
  173. 1760 [153]"37. (null)ANGAURD 38. (null)TELEX    39. (null)HERLOCK"
  174. 1770 [153]"40. (null)ARTS CHR$LR41. (null)ONE OF THE ABOVEPOKE"
  175. 1780 [142]
  176. 1790 NT[178]0
  177. 1800 [153]"";
  178. 1810 [133]A$:[139][197](A$)[178]0[167]A$[178]"16":[153]"16"
  179. 1820 [145][197](A$)[137]1880,1890,1900,1910,1920,1930,1940,1950,1960,1970,1980,1990,2000,2010,2020,2030
  180. 1830 A[178][197](A$)[171]16
  181. 1840 [145]A[137]2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200
  182. 1850 A[178][197](A$)[171]33
  183. 1860 [145]A[137]2210,2220,2230,2240,2250,2260,2270,2280
  184. 1870 [139]A[177]8[137]1310
  185. 1880 D$[178]"481-9047":QL$[178]"10PM-7AM   (null)ASSWORD =       ":[142]:[143] #01
  186. 1890 D$[178]"272-0709":[142]:[143] #02
  187. 1900 D$[178]"487-5833":[142]:[143] #03
  188. 1910 D$[178]"481-8661":[142]:[143] #04
  189. 1920 D$[178]"633-0185":[142]:[143] #05
  190. 1930 D$[178]"487-2593":[142]:[143] #06
  191. 1940 D$[178]"279-4236":[142]:[143] #07
  192. 1950 D$[178]"231-9607":[142]:[143] #08
  193. 1960 D$[178]"469-3305":[142]:[143] #09
  194. 1970 D$[178]"454-5330":[142]:[143] #10
  195. 1980 D$[178]"281-9452":[142]:[143] #11
  196. 1990 D$[178]"624-5431":[142]:[143] #12
  197. 2000 D$[178]"667-6708":[142]:[143] #13
  198. 2010 D$[178]"783-6984":[142]:[143] #14
  199. 2020 D$[178]"823-1930":[142]:[143] #15
  200. 2030 D$[178]"454-3046":[142]:[143] #16
  201. 2040 D$[178]"277-9163":[142]:[143] #17
  202. 2050 D$[178]"270-3491":[142]:[143] #18
  203. 2060 D$[178]"534-2859":[142]:[143] #19
  204. 2070 D$[178]"592-9705":[142]:[143] #20
  205. 2080 D$[178]"621-9659":[142]:[143] #21
  206. 2090 D$[178]"481-9219":[142]:[143] #22
  207. 2100 D$[178]"224-1987":[142]:[143] #23
  208. 2110 D$[178]"279-9154":[142]:[143] #24
  209. 2120 D$[178]"792-7766":[142]:[143] #25
  210. 2130 D$[178]"275-0360":[142]:[143] #26
  211. 2140 D$[178]"826-3590":[142]:[143] #27
  212. 2150 D$[178]"622-9178":[142]:[143] #28
  213. 2160 D$[178]"488-9718":[142]:[143] #29
  214. 2170 D$[178]"624-9615":[142]:[143] #30
  215. 2180 D$[178]"451-5445":[142]:[143] #31
  216. 2190 D$[178]"635-7775":[142]:[143] #32
  217. 2200 D$[178]"278-9137":[142]:[143] #33
  218. 2210 D$[178]"366-2069":[142]:[143] #34
  219. 2220 D$[178]"499-9824":[142]:[143] #35
  220. 2230 D$[178]"964-6886":[142]:[143] #36
  221. 2240 D$[178]"494-8046":[142]:[143] #37
  222. 2250 D$[178]"766-3038":[142]:[143] #38
  223. 2260 D$[178]"921-8179":[142]:[143] #39
  224. 2270 D$[178]"925-8291":[142]:[143] #40
  225. 2280 [137]1340
  226. 2290 S[178]54272:[129]L[178]0[164]24:[151]S[170]L,0:[130]:[151]S[170]1,130:[151]S[170]5,9:[151]S[170]15,30:[151]S[170]24,15
  227. 2300 [129]L[178]1[164]4:[151]S[170]4,21:[129]T[178]1[164]60:[130]:[151]S[170]4,35:[129]T[178]1[164]60:[130]:[130]
  228. 2310 [151]S[170]24,0:[151]S[170]15,0:[151]S[170]5,0:[151]S[170]1,0:[129]L[178]0[164]24:[151]S[170]L,0:[130]
  229. 2320 [143]
  230. 2330 [153]"LOAD":[151]2023,0:[153]:[153]:[153]:[137]1440
  231. 2340 [159]6,8,15:[153]"LOAD":[137]2650
  232. 2350 [159]7,8,0,"$0":NQ[178]0
  233. 2360 [161]#7,A$,B$
  234. 2370 [161]#7,A$,B$
  235. 2380 [161]#7,A$,B$
  236. 2390 C[178]0:NQ[178]NQ[170]1:[139]A$[179][177]""[167]C[178][198](A$)
  237. 2400 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
  238. 2410 [153]""[202]([196](C),2);[163]3);"WAIT";:[139]NQ[178]1[167][153]"CMDCMD ";
  239. 2420 [161]#7,B$:[139] ST [179][177]0[167]2510
  240. 2430 [139]B$[179][177][199](34)[167]2420
  241. 2440 [161]#7,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]2440
  242. 2450 [161]#7,B$:[139]B$[178][199](32)[167]2450
  243. 2460 [153][163]18);:C$[178]""
  244. 2470 C$[178]C$[170]B$:[161]#7,B$:[139]B$[179][177]""[167]2470
  245. 2480 [153]""[200](C$,3)
  246. 2490 [161]T$:[139]T$[179][177]""[167][141]2530
  247. 2500 [139]ST[178]0[167]2370
  248. 2510 [153]" BLOCKS FREE"
  249. 2520 [160]7:[137]2650
  250. 2530 [139]T$[178]"Q"[167][160]7:[160]6:[137]200
  251. 2540 [161]T$:[139]T$[178]""[137]2530
  252. 2550 [142]
  253. 2560 [143] DISK COMMANDS
  254. 2570 C$[178]"":[153]">";
  255. 2580 [161]B$:[139]B$[178]""[167]2580
  256. 2590 [153]B$;:[139]B$[178][199](13)[167]2610
  257. 2600 C$[178]C$[170]B$:[137]2580
  258. 2610 [152]6,C$
  259. 2620 [153]""
  260. 2630 [161]#6,A$:[153]A$;:[139]A$[179][177][199](13)[137]2630
  261. 2640 [153]"WAIT"
  262. 2650 [153]"D-DIRECTORY"
  263. 2660 [153]">-DISK COMMAND"
  264. 2670 [153]"Q-QUIT"
  265. 2680 [153]"S-DISK STATUS"
  266. 2690 [161]A$:[139]A$[178]""[167]2690
  267. 2700 [139]A$[178]"D"[167]2350
  268. 2710 [139]A$[178]"."[176]A$[178]">"[176]A$[178]">"[167]2560
  269. 2720 [139]A$[178]"Q"[167][160]6:[160]7:[137]200
  270. 2730 [139]A$[178]"S"[167]2620
  271. 2740 [137]2690
  272. 2750 [143] CHECK USR RETURN VALUE
  273. 2760 NB[178]NB[171](NB[179]0)[172]65536
  274. 2770 [139]NB[179]61440[167]UE[178]0:[142]
  275. 2780 [139]NB[178]61440[167]UE[178]128:[142]
  276. 2790 [153]"READ ERROR# ";NB[171]61440:[142]
  277. 3160 [153]"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)ROGRAM (null)AME? ";:[141]3290:[139]I$[178]""[167]200
  278. 3161 [153]"((null))RG. ((null))EQ. ((null))ORDPRO?"
  279. 3162 [161]A$:[139]A$[178]"P"[176]A$[178]"(null)"[167]SA[178]0:PK[178]1:I$[178]I$[170]",P,R":[137]3166
  280. 3163 [139]A$[178]"W"[176]A$[178]"(null)"[167]SA[178]0:PK[178]3:I$[178]I$[170]",P,R":[137]3166
  281. 3164 [139]A$[178]"S"[176]A$[178]"(null)"[167]SA[178]2:PK[178]2:I$[178]I$[170]",S,R":[137]3166
  282. 3165 [137]3162
  283. 3166 [160]1:[160]2:[159]1,8,15:[159]2,8,SA,I$:[132]1,A,B$,C,D
  284. 3167 [139]A[177]0[167][153]A;""B$"WAIT";C;D:[160]2:[160]1:[137]3160
  285. 3180 [158]49173:[151]51227,PK:[158]49164:[139][194](512)[178]1[167][160]2:[160]1:[137]190
  286. 3190 [158]49173:[151]51224,BS:[158]49158:[160]2:[160]1:[137]190
  287. 3200 [153]"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)AVE ATNS? ";:[141]3290:[139]I$[178]""[167]200
  288. 3210 [158]49173:[158]49161:[139][194](512)[178]1[167]190
  289. 3220 T$[178]","[170][202]("PSP",[194](51227),1)[170]",W"
  290. 3221 [139][194](51227)[178]1[167][153]"(null)ECEIVING (null)(null)CHR$ ASCILE":[137]3230
  291. 3222 [139][194](51227)[178]2[167][153]"(null)ECEIVING (null)VAL(null) ASCILE":[137]3230
  292. 3223 [139][194](51227)[178]3[167][153]"(null)ECEIVING (null)(null)(null) ASCILE":[137]3230
  293. 3230 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
  294. 3240 [158]49173:[158]49155:[160]2:[129]X[178]1[164]1000:[151]668,[194](667):[137]190
  295. 3250 [153]"(null)ETURN ATNBORTS...":[153]"PEEKLOCK (null)IZE? ";:[141]3290:[139]I$[178]""[167]200
  296. 3260 BS[178][197](I$):[139]BS[179]40[167]BS[178]40
  297. 3270 [139]BS[177]255[167]BS[178]255
  298. 3280 [151]51224,BS:[137]200
  299. 3290 I$[178]""
  300. 3300 [153]" WAITCMD";
  301. 3310 [161]A$:[139]A$[178]""[167]3310
  302. 3320 [139]A$[178][199](13)[167]3390
  303. 3330 [139]A$[178][199](20)[167]3370
  304. 3340 [139][195](A$)[177]20[167]3310
  305. 3350 [139]([198](A$)[175]127)[179]32[167]3310
  306. 3360 [153]A$;:I$[178]I$[170]A$:[137]3300
  307. 3370 [139][195](I$)[178]0[167]3310
  308. 3380 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]3300
  309. 3390 [153]" ":[142]
  310. 7000 [143] *** TONE DIAL SET UP
  311. 7010 SI[178]54272
  312. 7020 [151]SI[170]24,15:[151]SI[170]4,16
  313. 7030 [151]SI[170]11,16:[151]SI[170]5,0:[151]SI[170]12,0
  314. 7040 [151]SI[170]6,15[172]16:[151]SI[170]13,15[172]16:[151]SI[170]23,0:[142]
  315. 10000 [153][194](56577),[194](56579)
  316. 10001 [137]10000
  317. 20000 [139]A$[178]"5"[167][151]56579,32:[151]56577,95
  318. 20001 [139]A$[178]"6"[167][151]56577,127
  319. 20002 [137]200
  320.